home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test6.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  383 b   |  19 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :-
  5.     write(population_of_china_is_),
  6.     population(china, Y),
  7.     write(Y), nl, nl, !,
  8.     population(X,Y),
  9.     write(X), write('-->'), write(Y), nl.
  10.  
  11. population(france, 54).
  12. population(italy,61).
  13. population(vietnam,54).
  14. population(usa,220).
  15. population(ussr,250).
  16. population(china,1000).
  17. population(japan,120).
  18.  
  19.